Imports System.Net

Public Class Comunicacao
    Shared Sub SendMail(ByVal mensagem As String, ByVal email As String, ByVal assunto As String)
        Dim message As New System.Net.Mail.MailMessage("julio@dohms.org.br", email, assunto, mensagem)
        message.IsBodyHtml = True
        Dim cliente As New System.Net.Mail.SmtpClient("smtp.dohms.org.br")
        cliente.Credentials = New NetworkCredential("julio@dohms.org.br", "mestre03")
        cliente.Send(message)
    End Sub
End Class
